home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / docs / mags / AmZ_8-HT.lha / amzeiger / amz0399 / bin.lha / BlitzEx3.txt < prev   
Text File  |  1999-03-13  |  2KB  |  66 lines
  1. WBStartup
  2.  
  3. ; Kennen wir
  4.  
  5. WBenchToFront_
  6.  
  7. WbToScreen 0
  8. Use Screen 0
  9. *Scr = ActiveScreen
  10.  
  11. ;Intuifont Bestimmen
  12.  
  13. FH=Peek.w(Peek.l(*Scr+40)+4)
  14. FN$=Peek$(Peek.l(*Scr+40)+8)
  15. LoadFont 0,FN$,FH
  16. Use IntuiFont 0
  17.  
  18. ; Window Oeffnen
  19.  
  20. SH.w=Peek.w(*Scr+14)
  21. SW.w=Peek.w(*Scr+12)
  22. SB.b=Peek.b(*Scr+30)
  23.  
  24.  
  25. SizeLimits 200,120,SW,SH
  26.  
  27. ;Bestimmen der TagList
  28.  
  29. GTTags $80080000,$80080000+15
  30.  
  31.  
  32. Window 0,0,SB,SW,SH-SB,$140F,"Gatget BB2-Kurs",1,2
  33.  
  34. a=0:a$="Vorname"
  35.  
  36. Gosub GadDef
  37.  
  38.  
  39. Repeat
  40.  
  41.   FlushEvents
  42.   ev.l=WaitEvent
  43.  
  44.  
  45.   If ev=$40
  46.  
  47.      Select GadgetHit
  48.  
  49.       Case 0
  50.  
  51.         WLocate 1,100:Print "Eintag Nummer ",GTGetAttrs(0,0,$80080000+15)
  52.  
  53.      End Select
  54.   End If
  55.  
  56. Until ev=$200
  57. End
  58.  
  59. ; Gadget Definieren
  60.  
  61. .GadDef
  62. WCls
  63. GTCycle 0,0,100,0,200,FH+5,"Gadget Text",1,"0 Eintrag|1 Eintrag|2 Eintrag"
  64. AttachGTList 0,0
  65. Return                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  66.